module Cita (Cita, nuevaC, fechaC, pretendienteC, pretendidoC, huboBesoC, besarC)

where

import Tipos
import Persona
import Prospecto

data Cita =  C Persona Persona Fecha | Besar Cita deriving (Show, Eq)



nuevaC :: Persona -> Persona -> Fecha -> Cita 
nuevaC  p1 p2 f 
				| p1 == p2				= error "Las Personas son las mismas!" 
				|otherwise				=	C p1 p2 f
 
fechaC :: Cita -> Fecha 
fechaC (C _ _ f) = f
fechaC (Besar x) = fechaC x 

pretendienteC :: Cita -> Persona 
pretendienteC (C p1 _ _ ) = p1
pretendienteC (Besar x) 	= pretendienteC x

pretendidoC :: Cita -> Persona 
pretendidoC (C _ p2 _ ) = p2
pretendidoC (Besar x) 	= pretendidoC x


huboBesoC :: Cita -> Bool
huboBesoC (C _ _ _)  = False
huboBesoC (Besar _) = True
 
 
besarC :: Cita -> Cita
besarC x = Besar x 
 
 
